Imports System.Windows.Forms

Public Class Main

    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click

    End Sub

    Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
            ' TODO: Add code here to open the file.
        End If
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim SaveFileDialog As New SaveFileDialog
        SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

        If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = SaveFileDialog.FileName
            ' TODO: Add code here to save the current contents of the form to a file.
        End If
    End Sub


    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
        Global.System.Windows.Forms.Application.Exit()
    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub TileVerticleToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub

    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        ' Close all child forms of the parent.
        For Each ChildForm As Form In Me.MdiChildren
            ChildForm.Close()
        Next
    End Sub

    Private m_ChildFormNumber As Integer = 0

    Private Sub LoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginToolStripMenuItem.Click
        M_Login.MdiParent = Me
        M_Login.Show()
    End Sub

    Private Sub ToolStrip_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)

    End Sub

    Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub UnitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnitToolStripMenuItem.Click
        M_Unit.MdiParent = Me
        M_Unit.Show()
    End Sub

    Private Sub TenantToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TenantToolStripMenuItem.Click
        M_Tenant.MdiParent = Me
        M_Tenant.Show()
    End Sub

    Private Sub ASMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ASMToolStripMenuItem.Click
        T_L_ASM.MdiParent = Me
        T_L_ASM.Show()
    End Sub

    Private Sub AJBToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AJBToolStripMenuItem.Click
        T_L_AJB.MdiParent = Me
        T_L_AJB.Show()
    End Sub

    Private Sub SITSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SITSToolStripMenuItem.Click
        T_L_SIST.MdiParent = Me
        T_L_SIST.Show()
    End Sub

    Private Sub PPSMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PPSMToolStripMenuItem.Click
        T_L_PPSM.MdiParent = Me
        T_L_PPSM.Show()
    End Sub

    Private Sub PPJBToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PPJBToolStripMenuItem.Click
        T_L_PPJB.MdiParent = Me
        T_L_PPJB.Show()
    End Sub

    Private Sub PengalihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PengalihanToolStripMenuItem.Click
        T_L_Pengalihan.MdiParent = Me
        T_L_Pengalihan.Show()
    End Sub

    Private Sub PengalihanToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PengalihanToolStripMenuItem1.Click
        T_L_Req_Pengalihan.MdiParent = Me
        T_L_Req_Pengalihan.Show()
    End Sub

    Private Sub AktaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AktaToolStripMenuItem.Click
        T_L_Req_Akta.MdiParent = Me
        T_L_Req_Akta.Show()
    End Sub

    Private Sub AngsuranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AngsuranToolStripMenuItem.Click
        A_Angsuran.MdiParent = Me
        A_Angsuran.Show()
    End Sub

    Private Sub FinanceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FinanceToolStripMenuItem.Click

    End Sub

    Private Sub QueryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QueryToolStripMenuItem.Click
        Query.MdiParent = Me
        Query.Show()
    End Sub

    Private Sub TenantIDToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TenantIDToolStripMenuItem.Click
        M_Tenant_ID.MdiParent = Me
        M_Tenant_ID.Show()
    End Sub
End Class
